program array
	implicit none
	double precision:: vec1(-1:1)
	vec1(-1)=1
	vec1(0)=0
	vec1(1)=1
	write(*,*) vec1
end program

